home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 15-02.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  763b  |  44 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DECLARE FUNCTION RandomNumber(Min,Max)
  6.  
  7. CONST Rectangles = 200
  8.  
  9. IF FGegacheck = 0 THEN
  10.    PRINT "This program requires EGA or VGA."
  11.    STOP
  12. END IF
  13.  
  14. OldMode = FGgetmode
  15. FGsetmode(FGautomode)
  16. FGsetfunc 3
  17.  
  18. Xres = FGgetmaxx
  19. Yres = FGgetmaxy
  20.  
  21. FOR I = 1 TO Rectangles
  22.    MinX = RandomNumber(0,Xres)
  23.    MaxX = RandomNumber(0,Xres)
  24.    MinY = RandomNumber(0,Yres)
  25.    MaxY = RandomNumber(0,Yres)
  26.    IF MinX > MaxX THEN SWAP MinX, MaxX
  27.    IF MinY > MaxY THEN SWAP MinY, MaxY
  28.    FGsetcolor RandomNumber(0,15)
  29.    FGrect MinX, MaxX, MinY, MaxY
  30. NEXT
  31.  
  32. FGsetmode OldMode
  33. FGreset
  34.  
  35. END
  36.  
  37.  
  38. FUNCTION RandomNumber(Min,Max)
  39.  
  40. Temp = RND * 32767
  41. RandomNumber = (Temp MOD (Max-Min+1)) + Min
  42.  
  43. END FUNCTION
  44.